﻿Imports System.Reflection

Public Class Startskjerm

    Private Sub btnEnspiller_Click(sender As Object, e As EventArgs) Handles btnEnspiller.Click

        ' Sett spillmodus
        Spillskjerm.modus = Spillskjerm.SPILLMODUS.ENSPILLER

        Spillskjerm.LesInnOrdliste()
        Spillskjerm.Init()

    End Sub

    Private Sub btnTospiller_Click(sender As Object, e As EventArgs) Handles btnTospiller.Click

        ' Sett spillmodus
        Spillskjerm.modus = Spillskjerm.SPILLMODUS.TOSPILLER

        ' Be spiller 1 om å skrive inn ordet som spiller 2 skal gjette.
        Spillskjerm.ordet = Spillskjerm.BeOmOrd()

        ' Hvis lengden på ordet er 0 betyr det at spiller 1 trykte Cancel, eller at han ikke skrev noe inn i inputboksen.
        ' I så fall, ikke start spillet.
        If Spillskjerm.ordet.Length = 0 Then
            Return
        End If

        ' Alt ser greit ut, start spillet.
        Spillskjerm.Init()

    End Sub

    Private Sub trkVanskelighetsgrad_Scroll(sender As TrackBar, e As EventArgs) Handles trkVanskelighetsgrad.Scroll
        Spillskjerm.vanskelighetsgrad = sender.Value
    End Sub

    Private Sub trkVanskelighetsgrad_Scroll(sender As Object, e As EventArgs) Handles trkVanskelighetsgrad.Scroll

        If trkVanskelighetsgrad.Value = 0 Then lblVanskelighetsgrad.Text = "Vanskelighetsgrad: Lett"
        If trkVanskelighetsgrad.Value = 1 Then lblVanskelighetsgrad.Text = "Vanskelighetsgrad: Medium"
        If trkVanskelighetsgrad.Value = 2 Then lblVanskelighetsgrad.Text = "Vanskelighetsgrad: Vanskelig"

    End Sub

    Private Sub Startskjerm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' Når programmet starter opp, klargjør for innlesning av embedded resources (bildefiler og ordliste).
        Spillskjerm._assembly = [Assembly].GetExecutingAssembly()

        ' Initialiser tilfeldig nummer-generator.
        Randomize()

        ' Initialiser vanskelighetsgrad, settes til samme verdi som trkVanskelighetsgrad
        Spillskjerm.vanskelighetsgrad = trkVanskelighetsgrad.Value

        ' Om operativsystemet øker vindusstørrelsen selv betyr det at skriftstørrelse (DPI) er justert opp i operativsystem.
        ' Regn ut og lagre forskjellen på tiltenkt og faktisk vindusstørrelse. Disse skaleringsfaktorene brukes senere i koden for å skalere bildene som tegnes på skjerm.
        Spillskjerm.skaleringsFaktorX = Me.Width / 994
        Spillskjerm.skaleringsFaktorY = Me.Height / 639

    End Sub
End Class